home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ IE Outlook Express 7.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  58 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="5"
  3. "COUNT"="1"
  4. "UIPATH"="Internet\Outlook Express\Appearance"
  5. "NAME"="Display Settings"
  6. "VERSION"="1.28"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Synchronize Internet Explorer display settings"
  9. "DESCRIPTION 1"="For some reason, Outlook Express doesn't share its display settings with Internet Explorer. Not only that, but you can't change the display settings in Outlook Express either."
  10. "DESCRIPTION 2"="These settings include: Background color, Text color, link color, hovering links settings and custom stylesheets."
  11. "DESCRIPTION 3"="However, by clicking the button, you can synchronize any changes you have made with Internet Explorer with those in Outlook Express. Please note that any further changes to Internet Explorer's display settings will not be reflected in Outlook Express unless you click this Synchronize button."
  12. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  13. "CONTACTURL"="http://www.neilrt.cwc.net/"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="The Outlook's bright, the Outlook's blue [screen of death]."
  16.  
  17. sValPath=""
  18. sP1="HKCU\Software\Microsoft\Outlook Express\"
  19. sP2="HKCU\Identities\Last User ID"
  20. sVal="5.0\Trident\Settings"
  21. sP="HKCU\Software\Microsoft\Internet Explorer\Settings\"
  22.  
  23. Sub Plugin_Initialize
  24.  g=RegPathExists(sP1)
  25.  if g=false then
  26.   Call Disable()
  27.  end if
  28. End Sub
  29.  
  30. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  31.  if ElementIndex=1 then     
  32.   'OK, let's have a look if we are running IE5...
  33.   s=RegReadValue(sP2)
  34.   if IsEmpty(s)=false then
  35.    'OK - we have a value - check if we can find OE
  36.    sValPath="HKCU\Identities\" & s & "\Software\Microsoft\Outlook Express\5.0\"
  37.    If RegPathExists(sValPath) then
  38.     'OE5 !
  39.     sValPath=sValPath
  40.    else
  41.     sValPath=sP1
  42.    end if 
  43.   else
  44.    sValPath=sP1
  45.   end if
  46.   ' Here we go...
  47.   iCount=RegEnumValues(sP)
  48.   For x=1 to iCount
  49.    t=RegEnumElement(x)
  50.    u=RegValueType(sP & t)
  51.    v=RegReadValue(sP & t)
  52.    Call RegWriteValue(sValPath & "Trident\Settings\" & t,v,u)
  53.   Next
  54.  end if
  55. End Sub
  56.  
  57. Sub Plugin_Terminate 
  58. End Sub